Function BinToDec(value As String) As Long

    Dim result As Long, i As Integer, exponent As Integer

    For i = Len(value) To 1 Step -1
        Select Case Asc(Mid$(value, i, 1))
            Case 48      ' "0", do nothing
            Case 49      ' "1", add the corresponding power of 2
                result = result Or Power2(exponent)
            Case Else
                Err.Raise 5
        End Select
        exponent = exponent + 1
    Next

    BinToDec = result
End Function
